home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / form printer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  790b  |  25 lines
  1. 10 poke53281,1:poke53280,1
  2. 20 print"[147]        [211][213][194][205][201][211][211][201][207][206] [198][207][210][205] [208][210][201][206][212][197][210]"
  3. 30 print"     [208] - [208]rint [211]ubmission [198]orm"
  4. 40 print"     [210] - [210]eturn to [204][207][193][196][211][212][193][210]"
  5. 50 print"     [208]ress [208] or [210]."
  6. 60 a=peek(203):ifa<>41anda<>17then60
  7. 70 ifa=17thengosub60000:goto50
  8. 80 print"      [211]et printer to top of paper."
  9. 90 print"   [208]ress [211][208][193][195][197] to [208][210][201][206][212], [193] to [193][194][207][210][212]."
  10. 100 a=peek(203):ifa<>60anda<>10then100
  11. 110 ifa=10thenrun
  12. 120 open4,4,7:open3,8,3,"submission form":print#4,"          ";
  13. 125 get#3,a$,a$:rem get load address
  14. 130 fori=.to1:get#3,a$:i=st
  15. 133 ifa$=chr$(13)thenprint#4:print#4,"          ";:goto140
  16. 137 print#4,a$;
  17. 140 next:close3:print#4:print#4:print#4:print#4:print#4:print#4:print#4
  18. 150 close4:run
  19. 60000 print"[145]  [193]re you sure you want to quit? ([217]/[206])"
  20. 60010 a=peek(203):ifa<>25anda<>39then60010
  21. 60020 ifa=39thenprint"[145]                                      [145]":return
  22. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  23. 60040 ifer<>63thenpoke198,.:end
  24. 60050 load"hello connect",8
  25.